home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EuroCD 3
/
EuroCD 3.iso
/
MIDI
/
Euterpe_Installation
/
Installation
/
install
< prev
next >
Wrap
Text File
|
1998-06-24
|
3KB
|
145 lines
(complete 0)
(set default_lang 4)
(set #introduction
(cat "\n\nInstallation of Euterpe.\n"
))
(set #bravi
(cat "Installation is not possible."
))
(set #quel-disque
(cat "Where do you want to install Euterpe\n(A directory will be created) ?"
))
(set #quel-disque-aide
(cat "Select the drawer or volume where the installation should be made."
))
(set #oui-prompt
(cat "Installation of OBJECT USER INTERFACE catalog files."
))
(set #oui-prompt
(cat "Installation of AsyncIO.library."
))
(set #startup-prompt
(cat "Adding Assign Euterpe: in user-startup."
))
(set #fix-error-asyncio
(cat "Fixing previous incorrect installation of AsyncIO.library."
))
(if (= @language "français")
(
(set default_lang 16)
(set #introduction
(cat "\n\nInstallation d'Euterpe.\n"
))
(set #bravi
(cat "L'installation a échoué."
))
(set #quel-disque
(cat "Où voulez-vous installer Euterpe\n(Un répertoire sera créé) ?"
))
(set #quel-disque-aide
(cat "Sélectionnez le disque ou répertoire où l'installation doit être effectuée."
))
(set #oui-prompt
(cat "Installation des catalogues pour l'interface OUI."
))
(set #asyncio-prompt
(cat "Installation de l'AsyncIO.library."
))
(set #startup-prompt
(cat "Ajout de l'assignation Euterpe: dans le fichier user-startup."
))
(set #fix-error-asyncio
(cat "Correction d'une installation précédente erronée de l'AsyncIO.library."
))
))
;---------------------------------------------------------------------
(set installLoc (pathonly (pathonly @icon))
installEuterpe (tackon installLoc "Euterpe")
installCats (tackon installEuterpe "Catalogs")
installFonts (tackon installLoc "Fonts")
installLibs (tackon installLoc "Libs/AsyncIO.library")
installOuiCat (tackon (tackon (tackon installLoc "OUI_Catalogs") @language) "oui.catalog")
targetOuiCat (tackon "LOCALE:Catalogs" @language)
targetFonts "FONTS:"
targetLibs "LIBS:"
)
(delopts "oknodelete" "force" "askuser")
(user 2)
(message #introduction)
(user 0)
(welcome)
(set old_level @user-level)
(user 2)
(set target (tackon (askdir (prompt #quel-disque)
(help #quel-disque-aide)
(default "SYS:")
(disk)
) "Euterpe")
)
(makedir target
(infos))
(user old_level)
(set @default-dest target)
(complete 10)
(set targetCats (tackon target "Catalogs"))
(copyfiles (source installEuterpe)
(dest target)
(all)
)
(complete 70)
(copyfiles (source installFonts)
(dest targetFonts)
(all)
)
(complete 75)
(if (exists "libs:asyncio.library/asyncio.library")
(
(message #fix-error-asyncio)
(rename "libs:asyncio.library" "libs:asynciodir" (safe))
(rename "libs:asynciodir/AsyncIO.library" "libs:AsyncIO.library" (safe))
(delete "libs:asynciodir" (optional (safe)))
)
)
(copylib (prompt #asyncio-prompt)
(source installLibs)
(dest targetLibs)
(confirm)
(help @copylib-help)
;)
(copylib (prompt #oui-prompt)
(source installOuiCat)
(dest targetOuiCat)
(confirm)
(optional nofail askuser)
(help @copylib-help)
)
(startup "Euterpe" (prompt #startup-prompt)
(help @startup-help)
(command (cat "Assign Euterpe: " target))
)
(complete 100)